RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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<SUBSTITUTE flag> 16-50 230871382 9}: 38: #9 re 


ZTITLE ‘Process <SUBSTITUTE flag>’ 
MODULE SUBST ( 
IDENT = ‘V04-000' 
%BL1SS32C 
ADDRESSING ~-MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 
sz 


X-11 BLi 
SKSVMSMA 


BEGIN 


4.0-742 
a CRUNOF SRCIJSUBST.BLI; a 


PES ES SLICES ITI T TTT T ST TT TTT TTT TPP etic i cir i titi it iii titi tit ititiiiiiiiti. 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
' DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is al SOF TWARE 5 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE ~ —'s THE 


: NC OFTWARE OR OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
= Faansrenaton NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
'® 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
be CORPORATION. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBIL 
!* SOFTWARE ON EQUIPMENT WHICH IS 


'@ 


ITY FOR THE USE OR RELIABILITY OF ITS 


Y 
NOT SUPPLIED BY DIGITAL. 
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ie¢ 
i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
i ABSTRACT: Processes the <SUBSTITUTE flag> 


i] 

! 

i 

ENVIRONMENT: Transportable 

AUTHOR: R.W.Friday CREATION DATE: May, 1978 
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S$ Process <SUBSTITUTE flag> 16-Sep-1984 01:52: VAX-11 Bliss-32 V4.0-742 
vot=bo0 Revision aistory ° 18: ~3ep - 38 94:38:99 DISKSVMSMASTER: CRUNOFF. SRCISUBST.BLI; Pt? 28 
rh psetre "Revision History' 
rt | MODIFIED BY: 
4 004 REMO0004 Ray Marshall 30-Mar-1984 
4 Added conditionals for foreign senquage pupper’ Provided 
4 German translations for the names of the months. 


003 REMO0003 Ray Marshall 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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13 
SUBST Process <SUBSTITUTE flag> 18-3¢ =1984 01:52: VAX-11 Bliss-32 V4.0-742 P 4 
v04-000 Module Level Declarat eke 1 =30P 71382 94:38:49 DISKSVMSMASTER: CRUNOFF .SRCISUBST.BLI:1~— (3) 
: 28 § ] XSBTTL "Module Level Declarations' : 
: 60 8 1 | TABLE OF CONTENTS: 
; & ao 1 i 
: 6 6] 1 | INCLUDE FILES: ; 
; Be ag}! 
: 66 064 1 LIBRARY 'NXPORT:XPORT'; ! XPORT Library ; 
; 24 98? } REQUIRE "REQ:RNODEF'; ' RUNOFF variant definitions : 
: 69 U 199 1 SIF DSRPLUS RTHEN ; 
; 20 U 198 LIBRARY REQ:DPLLIB'; ! DSRPLUS BLISS Library 
oS | 00 1 LIBRARY "REQ:DSRLIB’; ! DSR BLISS Library : 
; 7 0201 1 XFI 
on ae 
: , 0 04 MACROS 
: 78 06 1 MACRO 
: 79 m 0207 1 NAME_ENTRY(X) = 
3 80 6 08 THSPTR( (UPLIT ( X%STRING( XCHAR(ZCHARCOUNT(X)), X) ) )) &3 
: 8 0 10 ; EQUATED SYMBOLS: 
> B4 0 i 1 LITERAL 
: 85 0213 1 FIRST_INDEX = 1, ‘Don't change this!!!! 
> 86 0214 1 SUBST-DATE = 1, 
: 87 0215 1 SUBST“TIME = ¢° 
: 88 0 16 1 SUBST~YEAR = 
; «689 0217 1 SUBST“MONTH = 4, 
: 90 0 18 1 SUBST"DAY = 5, 
: 91 19 1 SUBST"HOURS = 6, 
a. § 0 30 1 SUBST“MINUTES = 7, 
> 9 0221 1 SUBST~SECONDS = 8, 
: a 8 $5 ! LAST_INDEX = 8; ‘Keep updated for additional symbols!!!! 
: 0 i 1 | OWN STORAGE: 
; § 0225 1! 
: 98 0 6 1 BIND 
: 99 0 1 SUBST_NAMES = PLIT (NAME_ENTRY('DATE'), 
> 100 8 1 NAME ENTRY ('TIME'). 
; 101 0 9 1 NAME “ENTRY ('YEAR') 
; 1 : 0 1 NAME ~ENTRY('MONTH'S, 
: 10 ee NAME ENTRY ("DAY"), 
> 104 ‘ 1 NAME ENTRY (HOURS) 
> 105 1 NAME “ENTRY ("MINUTES"), 
: 106 4 1 NAME ~ENTRY(* SECONDS’ ) 
: 1 5 1 ) : VECTOR; 
; 108 : 1! 
: 4 1 | EXTERNAL REFERENCES: 
ea $i. 
: 118 40 1 EXTERNAL 
ie 41 1 DATTIM : VECTOR 'Date and time pieces. 
: 114 42 1 IRA : FIXED_STRING, 


H 13 
ST Process <SUBSTITUTE flag> 16-Sep-1984 01:52: VAX-11 Bliss-32 V4.0-742 Pp 
-000 Module Level Declarations 12-8 08- 138s 93:38:49 NT eKSVMER ASTER: CRUNOFF. SRCISUBST.BLI:1> (3) 


Ni “AE aaa 

. a 45 1 EXTERNAL, LITERAL ‘Error messages 
3 13 46 1 RNFFNA, 

ae bl 47 1 RNFUDS: 

: ia 48 1 

s 12) 4 1 EXTERNAL ROUTINE 
; 1 ¢ 1 CNVDAT, 

. ¥ 1 CNVTIM, 

: 124 § 1 ENDCHR, 
1s i] iN: 

5 $ 5 1 PACBAS; 


13 
ss <SUBSTITUTE flag> 1b-5e 1984 01:52: VAX=11 Bliss-32 V4.0-742 Page 5 
o . 1 73057138 93:08:79 DISKSVMSMASTER: CRUNOFF . SRCJSUBST .BLI; 1° (4) 
ZSBTTL ‘SUBST <==" 
GLOBAL ROUTINE subst : NOVALUE = 


r 


vu 
So 
no 
—@® 


'4 


i FUNCTIONAL DESCRIPTION: 

See ABSTRACT, above. 
FORMAL PARAMETERS: —§ None 
IMPLICIT INPUTS: 


KHAR must be the current <SUBSTITUTE flag>, the first of 
the (presumed) pair. 


IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


UMMY FS FIXED_STRINGCSOJ, 
WORK “AREA : VECTOR CCHSALLOCATION(50)], 
WORK"LENGTH, 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i HOLD “FLAG 
SUBST_INDEX; 


“4 


HOLD_FLAG=.KHAR; ‘Remember current <SUBSTITUTE flag> 
KCNS (); 'Get next character. 


‘Make sure user has specified doubled <SUBSTITUTE flag>s. 

ASingie <SUBSTITUTE flag>s are for extensions, i.e., macro foc tl Tey). 
IF .KHAR NEQ .HOLD_FLAG THEN 'Check for error case first. 
BEGIN 'Not doubled <SUBSTITUTE flag>s 
ERMS ( RNFFNA 


osFS START (IRA) 
oCHSDIFF (.FS_NEXT (IRA), .FS_START (IRA)) ); 


WOOO OOO 000909 09 09 09 09 09 09 09 SI NIN NINN NIN IAP AA AAA AAOIN 


WAPIPOPONIMININITD 
Oo 


Ww 


RETURN; 
END; 


Stee "sien to character immediately after the second <SUBSTITUTE flag> 


udge up DUMMY FS to look Like a FIXED_STRING; 
UMAXSIZE (DUMAY FS) = 50; 
“INIT (DUMMY_FS); 


‘Attempt to pick up the word DATE or TIME. 


'F 
FS 
FS 
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GSLU_RESULT = GSLU (IRA, DUMMY_FS); 


‘Make sure something was found. 

IF ,GSLU_RESULT NEQ@ GSLU_NORMAL THEN ! If nothing was found, 
BEGIN ! something's wrong. 
ERMS ( RNFFNA 

‘ 


) 
H NEXT (IRA), .FS_START (IRA))); 
Ngee 


tempt to identify the word. The result of this block is either a RETURN 
the word was not identified, or an indicator as to which routine to 
lL to translate the string into something displayable. 


‘Assume the word won't be identified. 
SUBST_INDEX = 0; 


INCR I FROM 0 TO (.SUBST_NAMES(-1]-1) DO 
IF CHSEQL ( .FS_LENGTH(DUMMY_FS) 
»-FS_START(DUMMY_FS) 
, CHSRCHAR(. SUBST rod det be 
,CHSPLUS(.SUBST_NAMESC.13,1) ) THEN 
‘Keyword identified!!!! 


4 

4 

4 

4 

4 

5 BEGIN 

é SUBST_INDEX = .I + 1; ‘Remember which word it was. 
EXITLOOP 

: END 

4 

4 

4 


—- 1 
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'See if the keyword was found. 
IF .SUBST_INDEX EQL 0 THEN 
GIN d yee pet 


‘Wor 
ERMS (RNFUDS, .FS_START (IRA), CHSDIFF 
RETURN 


END; 
END; ‘End of identification of word. 


! Now get the character string that the user has requested. The result of 
! this CASE statement is that WORK_AREA will contain the text, text, and 
! WORK_LENGTH will be the number of characters. 


WORK_PTR = CHSPTR(WORK_AREA) ; 
CASE .SUBST_INDEX FROM FIRST_INDEX TO LAST_INDEX OF 


C[SUBST_DATE): 
BE 


identified 
NEXT (IRA), .FS_START (IRA))); 


SN Oe Oe NOA Suto 
MEW 0 OO NOUS WIN “OVOONOUSWwN— 


CNVDAT(DATTIM, WORK _PTR, WORK_LENGTH); 
WORK _PTR = CHSPTR(WORK_AREA) 


CSUBST_TIME): 
CNVTIM(DATTIM, WORK_PTR, WORK_LENGTH); 
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SUBST Process <SUBSTITUTE fiag> 13 -1984 VAX-11 Bliss-32 V4.0-742 9 
v04-000 SUBST <-=- 8 19: 8ep-1984 94: 38; 79 DISKSVMSMASTER: CRUNOFF . SRCIJSUBST.BLI; 4 we (4) 
: 7 484 'If the result was at least two digits, forget the leading zero. ; 
: 34 485 if .WORK LENGTH EQL . . ° 
: 23 ‘ § WORK CE GTH = “WORK__LENGTH + 1 : 
: 361 488 WORK_PTR = CHSPLUS(.WORK_PTR, 1); ; 
; 7 9 3 x $ 
: 36 490 3 
; 364 491 CSUBST_SECONDS): 3 
: 365 136 bell 3 
; 366 049 re vit t will be less than two digits, and prepad with a ‘0’. 3 
H 67 0494 cngecner te’ CHSPTR(WORK_AREA)); $ 
; 368 0495 WORK_PTR = CHSPLUS(.WORK_PTR,1); ; 
; 369 496 WORK -TENG GTH = PACBAS (.DATTIM C5], WORK_PTR, 10); ; 
. 70 0497 WORK-PTR = CHSPTR(WORK_AREA); é 
3; 371 0498 ‘If Fhe result was at Teast two digits, forget the leading zero. : 
; 36 0499 IF = ORK LENGTH EQL 1 THEN 3 
3 of 0500 K_CENGTH = .WORK_LENGTH + 1 ; 
3 374 0501 3 
; 375 0308 WORK_PTR = CHSPLUS(.WORK_PTR, 1); j 
; 376 0503 2 D; $ 
s S77 0504 TES; 3 
; 378 0505 3 
3; 379 0506 'Now feed these characters into the document. ; 
; 380 0507 INCR I FROM 1 TO .WORK_L H DO 3 
: $0) Bene ENDCHR ( CHS$RCHAR A (WORK_PTR) ); : 
: 383 0510 'That's all there is, so just return. F 
; 384 0511 RETURN; 3 
; 385 0512 #1 ND; 'End of SUBST . 
-TITLE SUBST Process <SUBSTITUTE flag> 3 
-IDENT \v04-000\ : 
-PSECT $PLITS$,NOWRT ,NOEXE ,2 : 
00 00 00 45 54 41 44 of 00000 P.AAB: .ASCII <4>\DATE\<0><0><0> 5 3 
00 00 00 45 4D 49 54 O04 Q0008 P.AAC: .ASCII <4>\TIME\<0><0><0> : 3 
00 00 00 52 41 45 59 Be Babig P.AAD: CII <4>\YEAR\<0><0><0> : 3 
00 00 48 54 f 4F 4D 3 Ba) P.AAE: .ASCII A alec 3 $ 
2 41 44 8 020 P.AAF: .ASCII <3>\DAY\ : 3 
00 00 53 2¢ 5 4F 48 05 00024 P.AAG: .ASCII : AN} roti la ; : 
5? 45 54 5 i 49 4 7 0002C P.AAH: .ASCII \MINUTES\ 3 3 
53 44 4E 4F 435 45 0 0 4 6 c P.AAI: “tend Il <7>\SECONDS\ F : 
00000000" 00000000 00000000" 00000000' 90008 0 $00 0 bbe 0040 P.AAA: ODRESS P.AAB, P.AAC, P. Mo. P.AAE, P.AAF, s 3 
0000000' 00000000° 0005 P.AAG, P.AAH, P.AAI 3 3 
0 79 72 9] 75 6 GA P.AAK: .ASCII \Januar y\<0> 3 ; 
g 3 61 75 i; 8 5 46 P.AAL: .ASCII \Fe 3 3 
00 05 G0 68 § g1 4 "AAM: = CASCII \Mar HBR : : 
00 00 00 6C 8 7 0 41 78 P.AAN: .ASCII \April\<0><0>< 5 5 
9 7 $1 4D P.AAO: .ASCII \May\< 3 3 
8 6E 4A AAP: .ASCII Nc bg 3 3 
2 of 75 «4A eAAQ: ASCII \July\ : 3 
00 00 74 if 7 § 7 $} AAR: ASCII \August\ <> : 3 
00 00 00 72 8 8 6p 65 74 70 § 5 AAS: .ASCII \September\<0><0><0> : : 
0 65 62 6F 74 4F QOOAO P.AAT: .ASCII \October\<0> 5 3 
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SUBST Process <SUBSTITUTE flag> 16-Sep-1984 01:52: VAX-11 Bliss-32 V4.0-742 Page 10 
v04-000 SUBST == 1 ~300 138% 94:38:99 DISKSVMSMASTER:CRUNOFF .SRCISUBST.BLI:1° (4) 
POSE $8 $8 88 28 os aE Sanus B-ttd: ASHE Moventer\ 1 
e ecemoer : 
00000000" 00000000" 00000000' 00000006' *"00000000' 000B8 P.AAJ: . ADDRESS P.AAK, P.AAL, P.AAM, P.AAN, P.AAO, - ; 
00000000' 00000000' titdaitdse 00000' $090 800" itd 00D p-AAP. P.AAQ, P.AAR, P.AAS, p Aate P.AAU, - : 
.PSECT $OWNS,NOEXE,2 
00000004 00000003 00000005 00000005 00000008 00000007 00000 MONTHL: .LONG 7, 8, 5, 5, 3, 4, 4 6. 9. 7, 8 ; 
00000008 00000008 00000007 00000009 00000006 00000004 iat ' : 
SUBST_NAMES= P.AAA 
MONTHS= P- AAJ 
.EXTRN DATTIM, IRA, KHAR 
SEXTRN RNFFNA, RNFUDS, CNVDAT 
“EXTRN CNVTIM, ENDCH 
“EXTRN GSLU, PACBAS, RINTES 
-PSECT $CODE$,NOWRT,2 
07FC 00000 .ENTRY SUBST, Save R2,R3,R4,R5,R6,R7,R8,R9,R10 : 0257 
5A 000000006 EF 9E 00002 MOVAB PACBAS, R10 ; 
59 00000000' EF 9E 00009 MOVAB SUBST_NAMES, R9 : 
58 000000006 EF 9E 00010 MOVAB KHAR,~R8 : 
57 000000006 EF 9E 00017 MOVAB DATTIM, R7 : 
56 000000006 EF 9E OO01E MOVAB IRA+12, R6 : 
SE 80 AE 9E 0002 MOVAB -128(SP), SP ; 
50 68 00 00029 MOVL § KHAR, HOLD_FLAG + 0291 
66 05 0002C TSTL IRA+{2 : 0293 
09 14 O00¢E BGTR : 
68 006 8F 9A 00030 MOVZBL M#RINTES, KHAR : 
66 01 CE 00034 MNEGL #1, IRA+12 : 
09 11 00037 BRB : 
68 F8 B6 9A 00039 1$ MOVZBL @IRA+4, KHAR : 
FB Ab OG 9003p INCL  IRA+4 ; 
66 07 00040 DECL IRA+12 ; 
50 68 01 00042 2$ CMPL § KHAR, HOLD_FLAG : 0297 
36 if 0004 BNEQ : 
66 D5 00047 TSTL RA+12 : 0306 
09 14 00049 BGTR g ; 
58 006 Br 9A 90048 MOVZBL M#RINTES, KHAR : 
66 1 CE 0004F NEGL #1, IRA+12 : 
09 11 00052 BRB : 
58 £8 B6 9A 0094 3$: MOVZBL @IRA+4, KHAR ; 
FB OA 06 0058 INCL _IRA+4 : 
$6 p 0058 DECL IRA+12 : 
44 AE 2 7D 0005D 4$: MOVG #50, DUMMY_FS+8 > 0309 
3c AE 4C AE H 0061 MOVAB DUMMY_FS+15, DUMMY_FS : 0310 
40. AE 3¢ AE DO 00066 MOVL - DUMMY"FS, DUMMY_FS74 : 
C AE 9F 00068 PUSHAB DUMMY~FS > 0313 
F4 AG OOF O06 PUSHAB IRA : 
000000006 FF 08 FB 900 CALLS #2, GSLU : 
1 3 DI o00%8 CPL GSLU_RESULT, #1 : 0316 
7E FB A Fo OA i (1 5$: SUBL3 IRA, IRA+4, -(SP) > 0320 
F4 AG DD 00085 PUSHL : 
000000006 8F ODD PUSHL #RNFFNA : 
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3h 94: 38: 79 DIeK SVMSHAS feR-ChUWOFe “SRCISUBST. aLIt 


10$ 
a mites 
$ 
ieee h NAMESCIJ, RO 
DUMMY Fea, @DUMMY_FS, #0, R1, 1(RO) 


Fra), SUBST _ INDEX 


avast mt i I, 7$ 
SUBST~ INDEX 

11$ 

{Rae IRA+4, =(SP) 
#RNFUDS 

#3, ERMS 


ORK_AREA, WORK_PTR 
st INDEX, #17 #7 


#3, CNVDAT 
19$ 


SP 
WORK. PTR 
#3, CNVTIM 


19§ 

10 
“one PTR 

ATTIM 

tas 
DATTIM+ 
MONTHS—4 RO), 
ies ROJ, WORK -CENGTH 


a3, CBAS 
RO, WORK LENGTH 
WORK. ARERS get _PTR 


#48, WORK_AREA 
WORK_PTR 


ro 


Ss 
V 


ST 
-000 SUBST 
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Process <SUBSTITUTE flag> 16-Sep-19 yay -11 $732 V4.0-742 Page 
Po aeons rT) Re eth BLI:1” 
08 AE 9F 00141 PUSHAB WORK F 
C A? DD 00144 PUSHL RT TIMe? 2 : 
F 11 00147 BRB 2 : 
08 AE 0 9000149 21$: MOVB #48, WORK_AREA : 
04 AE 06 0014 INCL  WORK_PTR : 
OA BD 1 PUSHL #10 : 
08 AE 9F 001 PUSHAB WORK_PTR : 
10 A? dd 001 PUSHL DATTIM+16 : 
6A 93 FB 158 22$: CALLS #3, PACBAS : 
6E dO 00158 MOVL RO. WORK_LENGTH : 
04 AE 08 AE 9E 001 : MOVAB WORK MAREK WORK. PTR : 
01 F 6 O16 CMPL § WORK"LENGTH, ; 
1 é BEQL 4 : 
3 11 0016 BRB 5$ : 
08 AE 0 90 0016A 23S:  MOVB #48, WORK_AREA : 
04 AE 06 166 INCL  WORK_PTR : 
OA DD 00171 PUSHL @# : 
08 AE 9F 00173 PUSHAB WORK_PTR : 
14 A? DD 00176 PUSHL DATTIM+20 : 
6A 3 FB 00179 CALLS #3, PACBA ; 
6E 0 pO 0017¢ MOVL RO, WORK_LENGTH : 
04 AE 08 AE 9 017F MOVAB WORK AREA WORK PTR : 
01 6E D1 00184 CMPL WORK ~(ENG TH ; 
04 12 00187 BNE 5 3 
6E D6 00189 248: INCL | WORK_LENGTH : 
03 11 00188 BRB $ : 
04 AE D6 0018D 258: INCL §WORK_PTR : 
52 D4 00190 26$:  CLRL : 
0€ 11 00192 BRB 8$ : 
7E 04 BE 9A 00194 27$:  MOVZBL @WORK_PTR, -(SP) : 
08 AE 06 00198 INCL WORK KEPTR : 
000000006 EF 01 FB 0198 CALLS NDCHR ; 
E 2 6E F3 O01A2 288: AOBLEQ aa, _LENGTH, I, 27$ F 
04 001A6 RET : 


San | 
a | 


; Routine Size: 423 bytes, Routine Base: S$CODE$ + 0000 
380 0513 (1 
387 0514 1 END 
388 0515 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SPLITS 232 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, 
SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, 
SCODES 425 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, 


'End of module 


REL, 
REL, 
R 


$s 
Vv 
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ST Process <SUBSTITUTE flag> 16-Sep- VAX-11 Bliss-32 V4.0-742 P 
=000 SUBST == ° 1eagee18Be Phi3g:F9 | Ped ShAS teas chonOre “Secasuest.eu1.%® 
Library Statistics 
coonsess Synho|§ scocssee Pages Processing 
File Total idaded Percent Mapped Time 
$255$DUA28: CSYSLIBIXPORT.L32;1 590 0 252 700. 
RHETT RUNOFF .SRCJDS Ri 18.132:1 1248 18 1 8h : :00. 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SUBST/OBJ=OBJ$:SUBST MSRC$:SUBST/UPDATE=(ENH$: SUBST) 
Size: 423 code + 280 data bytes 
Run Time: 


Elapsed Time: 00:33.1 
Lines/CPU Min: 2850 
Lexemes/CPU-Min: 21154 
poms | Used: 131 pages 
Compilation Complete 
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